# name : param2list, parameters to list, using lapply
# key : param2list_lapply
# contributor : Shuguang Sun
# --
$1l <- lapply(seq_len(nrow(${1:params})), function(i) $1[i,])